home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / 2499.ZIP / EXEC.ZIP / EXEC.ASM next >
Assembly Source File  |  1988-05-17  |  477b  |  32 lines
  1. include cmacros.inc
  2.  
  3.  
  4. assumes CS,CODE
  5. assumes DS,DATA
  6.  
  7. sBegin DATA
  8. sEnd   DATA
  9.  
  10. sBegin CODE
  11.     stackSS dw 0
  12.     stackSP dw 0
  13.  
  14. cProc    Int21Function4B,<PUBLIC,FAR>,<ax,bx,cx,dx,si,di,es,ds>
  15.     parmB mode
  16.     parmD path
  17.     parmD execblock
  18. cBegin
  19.     mov cs:[stackSS],ss        ;; EXEC destroys all register. Save SS:SP.
  20.     mov cs:[stackSP],sp
  21.     mov al,mode
  22.     lds dx,path
  23.     les bx,execblock
  24.     mov ah,4bh
  25.     int 21h
  26.     mov ss,cs:[stackSS]
  27.     mov sp,cs:[stackSP]
  28. cEnd
  29.  
  30. sEnd CODE
  31. END
  32.